<?php
#
#
# Copyright TEDECO, 2009. http://tedeco.fi.upm.es
#
# This file is part of kumenya.
#
# Kumenya is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# Kumenya is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with Foobar.  If not, see <http://www.gnu.org/licenses/>.
#
#
#
?>
<?php
	if (Interfaz::FileType()) {
		$html = Interfaz::TrialBalanceHeader ($header,$headerDetails, TRUE);
	
		$accumulatedDebt = 0;
		$accumulatedCredit = 0;
		$accumulatedDebtBalance = 0;
		$accumulatedCreditBalance = 0;
	
		// DESCRIBE INCOMES
		foreach ($balanceSheetAccountIncomes as $account => $accountData) {
			if (isset($AccountsBalance))
				$html .= Interfaz::RowTrialBalance($accountData,$accountIncomesDetails[$account], TRUE, 
					$accumulatedDebt, $accumulatedCredit, $accumulatedDebtBalance, $accumulatedCreditBalance);
			if (isset($SubaccountBalances) && isset($balanceSheetSubAccountIncomes[$account]))
				foreach ($balanceSheetSubAccountIncomes[$account] as $subaccount => $subaccountData) {
					$html .=Interfaz::RowTrialBalance($subaccountData, $subAccountIncomesDetails[$subaccount], TRUE, 
						$accumulatedDebt, $accumulatedCredit, $accumulatedDebtBalance, $accumulatedCreditBalance);
				}
		}
		$accumulatedIncomesDebt = $accumulatedDebt;
		$accumulatedIncomesCredit = $accumulatedCredit;
		$accumulatedIncomesDebtBalance = $accumulatedDebtBalance;
		$accumulatedIncomesCreditBalance = $accumulatedCreditBalance;
	
		$html .= Interfaz::ClosingIncomeExpensesBalance ($accumulatedIncomesDebt, $accumulatedIncomesCredit, $accumulatedIncomesDebtBalance, 
			$accumulatedIncomesCreditBalance, Income, TRUE);
	
		// DESCRIBE EXPENSES
		foreach ($balanceSheetAccountExpenses as $account => $accountData) {
			if (isset($AccountsBalance))
				$html .=Interfaz::RowTrialBalance($accountData,$accountExpensesDetails[$account], TRUE, 
					$accumulatedDebt, $accumulatedCredit, $accumulatedDebtBalance, $accumulatedCreditBalance);
			if (isset($SubaccountBalances) && isset($balanceSheetSubAccountExpenses[$account]))
				foreach ($balanceSheetSubAccountExpenses[$account] as $subaccount => $subaccountData) {
					$html .=Interfaz::RowTrialBalance($subaccountData, $subAccountExpensesDetails[$subaccount], TRUE, 
						$accumulatedDebt, $accumulatedCredit, $accumulatedDebtBalance, $accumulatedCreditBalance);
				}
		}
	
		$accumulatedExpensesDebt = $accumulatedDebt - $accumulatedIncomesDebt;
		$accumulatedExpensesCredit = $accumulatedCredit - $accumulatedIncomesCredit;
		$accumulatedExpensesDebtBalance = $accumulatedDebtBalance - $accumulatedIncomesDebtBalance;
		$accumulatedExpensesCreditBalance = $accumulatedCreditBalance - $accumulatedIncomesCreditBalance;
	
		$html .=Interfaz::ClosingIncomeExpensesBalance ($accumulatedExpensesDebt, $accumulatedExpensesCredit, 
			$accumulatedExpensesDebtBalance, $accumulatedExpensesCreditBalance, Expenses, TRUE);
	
		$totalDebtBalanceSheet = $accumulatedExpensesDebtBalance + $accumulatedIncomesDebtBalance;
		$totalCreditBalanceSheet = $accumulatedExpensesCreditBalance + $accumulatedIncomesCreditBalance;
	
		$html .= Interfaz::IncomesExpensesTotalBalance($totalDebtBalanceSheet, $totalCreditBalanceSheet, TRUE);
		$link = File::Excel (_("INCOME AND EXPENSES BALANCE"), $html);
		$openFile = TRUE;
	}
	else
		$openFile = FALSE;
?>		